/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / preproc.sit / macfile.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 6d 61 63 66 69 6c | 65 2e 63 00 00 00 00 00 |..macfil|e.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 08 3f 00 | 00 01 f2 a6 e2 39 1d a6 |......?.|.....9..|
|00000060| e2 39 1d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.9......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d9 0d 00 00 |........|........|
|00000080| 2f 2a 0d 20 2a 20 20 46 | 75 6e 63 74 69 6f 6e 73 |/*. *  F|unctions|
|00000090| 20 74 6f 20 63 6f 6e 76 | 65 72 74 20 61 20 55 4e | to conv|ert a UN|
|000000a0| 49 58 2d 74 79 70 65 20 | 66 69 6c 65 20 6e 61 6d |IX-type |file nam|
|000000b0| 65 20 74 6f 20 4d 61 63 | 2d 74 79 70 65 0d 20 2a |e to Mac|-type. *|
|000000c0| 20 20 61 6e 64 20 76 69 | 63 65 20 76 65 72 73 61 |  and vi|ce versa|
|000000d0| 2e 0d 20 2a 0d 20 2a 20 | 20 52 65 73 75 6c 74 20 |.. *. * | Result |
|000000e0| 69 73 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 61 20 |is point|er to a |
|000000f0| 73 74 61 74 69 63 20 73 | 74 72 69 6e 67 2c 20 6f |static s|tring, o|
|00000100| 72 20 6d 61 79 62 65 20 | 61 20 70 6f 69 6e 74 65 |r maybe |a pointe|
|00000110| 72 0d 20 2a 20 20 74 6f | 20 74 68 65 20 69 6e 70 |r. *  to| the inp|
|00000120| 75 74 20 73 74 72 69 6e | 67 20 69 66 20 69 74 20 |ut strin|g if it |
|00000130| 69 73 20 75 6e 63 68 61 | 6e 67 65 64 2e 0d 20 2a |is uncha|nged.. *|
|00000140| 2f 0d 0d 23 69 6e 63 6c | 75 64 65 20 3c 73 74 64 |/..#incl|ude <std|
|00000150| 69 6f 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |io.h>.#i|nclude <|
|00000160| 73 74 72 69 6e 67 2e 68 | 3e 0d 0d 73 74 61 74 69 |string.h|>..stati|
|00000170| 63 20 63 68 61 72 20 46 | 69 6c 65 4e 61 6d 65 5f |c char F|ileName_|
|00000180| 6e 65 77 66 6e 5b 31 30 | 30 5d 3b 0d 0d 63 68 61 |newfn[10|0];..cha|
|00000190| 72 20 2a 0d 46 69 6c 65 | 4e 61 6d 65 55 6e 69 78 |r *.File|NameUnix|
|000001a0| 54 6f 4d 61 63 28 63 6f | 6e 73 74 20 63 68 61 72 |ToMac(co|nst char|
|000001b0| 20 2a 66 6e 29 20 7b 0d | 20 20 63 68 61 72 20 2a | *fn) {.|  char *|
|000001c0| 71 2c 2a 65 2c 2a 72 3b | 0d 20 20 69 6e 74 20 66 |q,*e,*r;|.  int f|
|000001d0| 75 6c 6c 3b 0d 20 20 0d | 20 20 69 66 20 28 73 74 |ull;.  .|  if (st|
|000001e0| 72 63 68 72 28 66 6e 2c | 27 2f 27 29 20 3d 3d 20 |rchr(fn,|'/') == |
|000001f0| 4e 55 4c 4c 29 20 72 65 | 74 75 72 6e 20 66 6e 3b |NULL) re|turn fn;|
|00000200| 0d 20 20 65 20 3d 20 66 | 6e 20 2b 20 73 74 72 6c |.  e = f|n + strl|
|00000210| 65 6e 28 66 6e 29 3b 0d | 20 20 72 20 3d 20 46 69 |en(fn);.|  r = Fi|
|00000220| 6c 65 4e 61 6d 65 5f 6e | 65 77 66 6e 3b 0d 20 20 |leName_n|ewfn;.  |
|00000230| 69 66 20 28 2a 66 6e 20 | 3d 3d 20 27 2f 27 29 20 |if (*fn |== '/') |
|00000240| 7b 0d 20 20 20 20 66 75 | 6c 6c 20 3d 20 31 3b 0d |{.    fu|ll = 1;.|
|00000250| 20 20 20 20 2b 2b 66 6e | 3b 0d 20 20 7d 0d 20 20 |    ++fn|;.  }.  |
|00000260| 65 6c 73 65 20 66 75 6c | 6c 20 3d 20 30 3b 0d 20 |else ful|l = 0;. |
|00000270| 20 66 6f 72 20 28 3b 3b | 29 20 7b 0d 20 20 20 20 | for (;;|) {.    |
|00000280| 28 71 20 3d 20 73 74 72 | 63 68 72 28 66 6e 2c 27 |(q = str|chr(fn,'|
|00000290| 2f 27 29 29 20 7c 7c 20 | 28 71 20 3d 20 65 29 3b |/')) || |(q = e);|
|000002a0| 0d 20 20 20 20 69 66 20 | 28 66 6e 20 3d 3d 20 71 |.    if |(fn == q|
|000002b0| 20 7c 7c 20 71 20 2d 20 | 66 6e 20 3d 3d 20 31 20 | || q - |fn == 1 |
|000002c0| 26 26 20 2a 66 6e 20 3d | 3d 20 27 2e 27 29 20 7b |&& *fn =|= '.') {|
|000002d0| 7d 0d 20 20 20 20 65 6c | 73 65 20 69 66 20 28 71 |}.    el|se if (q|
|000002e0| 20 2d 20 66 6e 20 3d 3d | 20 32 20 26 26 20 2a 66 | - fn ==| 2 && *f|
|000002f0| 6e 20 3d 3d 20 27 2e 27 | 20 26 26 20 2a 28 66 6e |n == '.'| && *(fn|
|00000300| 20 2b 20 31 29 20 3d 3d | 20 27 2e 27 29 0d 20 20 | + 1) ==| '.').  |
|00000310| 20 20 20 20 20 20 2a 72 | 2b 2b 20 3d 20 27 3a 27 |      *r|++ = ':'|
|00000320| 3b 0d 20 20 20 20 65 6c | 73 65 20 7b 0d 20 20 20 |;.    el|se {.   |
|00000330| 20 20 20 2a 72 2b 2b 20 | 3d 20 27 3a 27 3b 0d 20 |   *r++ |= ':';. |
|00000340| 20 20 20 20 20 6d 65 6d | 63 70 79 28 72 2c 66 6e |     mem|cpy(r,fn|
|00000350| 2c 71 20 2d 20 66 6e 29 | 3b 0d 20 20 20 20 20 20 |,q - fn)|;.      |
|00000360| 72 20 2b 3d 20 71 20 2d | 20 66 6e 3b 0d 20 20 20 |r += q -| fn;.   |
|00000370| 20 7d 0d 20 20 20 20 69 | 66 20 28 71 20 3d 3d 20 | }.    i|f (q == |
|00000380| 65 29 20 62 72 65 61 6b | 3b 0d 20 20 20 20 66 6e |e) break|;.    fn|
|00000390| 20 3d 20 71 20 2b 20 31 | 3b 0d 20 20 7d 0d 20 20 | = q + 1|;.  }.  |
|000003a0| 69 66 20 28 2a 28 72 20 | 2d 20 31 29 20 3d 3d 20 |if (*(r |- 1) == |
|000003b0| 27 3a 27 29 20 2a 72 2b | 2b 20 3d 20 27 3a 27 3b |':') *r+|+ = ':';|
|000003c0| 0d 20 20 65 6c 73 65 20 | 69 66 20 28 2a 28 65 20 |.  else |if (*(e |
|000003d0| 2d 20 31 29 20 3d 3d 20 | 27 2f 27 29 20 2a 72 2b |- 1) == |'/') *r+|
|000003e0| 2b 20 3d 20 27 3a 27 3b | 0d 20 20 2a 72 20 3d 20 |+ = ':';|.  *r = |
|000003f0| 27 5c 30 27 3b 0d 20 20 | 72 65 74 75 72 6e 20 66 |'\0';.  |return f|
|00000400| 75 6c 6c 20 3f 20 46 69 | 6c 65 4e 61 6d 65 5f 6e |ull ? Fi|leName_n|
|00000410| 65 77 66 6e 20 2b 20 31 | 20 3a 20 46 69 6c 65 4e |ewfn + 1| : FileN|
|00000420| 61 6d 65 5f 6e 65 77 66 | 6e 3b 0d 7d 0d 0d 0d 63 |ame_newf|n;.}...c|
|00000430| 68 61 72 20 2a 0d 46 69 | 6c 65 4e 61 6d 65 4d 61 |har *.Fi|leNameMa|
|00000440| 63 54 6f 55 6e 69 78 28 | 63 6f 6e 73 74 20 63 68 |cToUnix(|const ch|
|00000450| 61 72 20 2a 66 6e 29 20 | 7b 0d 20 20 63 68 61 72 |ar *fn) |{.  char|
|00000460| 20 2a 71 2c 2a 65 2c 2a | 72 3b 0d 20 20 0d 20 20 | *q,*e,*|r;.  .  |
|00000470| 69 66 20 28 73 74 72 63 | 68 72 28 66 6e 2c 27 3a |if (strc|hr(fn,':|
|00000480| 27 29 20 3d 3d 20 4e 55 | 4c 4c 29 20 72 65 74 75 |') == NU|LL) retu|
|00000490| 72 6e 20 66 6e 3b 0d 20 | 20 72 20 3d 20 46 69 6c |rn fn;. | r = Fil|
|000004a0| 65 4e 61 6d 65 5f 6e 65 | 77 66 6e 3b 0d 20 20 69 |eName_ne|wfn;.  i|
|000004b0| 66 20 28 2a 66 6e 20 3d | 3d 20 27 3a 27 29 20 2b |f (*fn =|= ':') +|
|000004c0| 2b 66 6e 3b 0d 20 20 65 | 6c 73 65 20 2a 72 2b 2b |+fn;.  e|lse *r++|
|000004d0| 20 3d 20 27 2f 27 3b 0d | 20 20 71 20 3d 20 66 6e | = '/';.|  q = fn|
|000004e0| 3b 0d 20 20 65 20 3d 20 | 66 6e 20 2b 20 73 74 72 |;.  e = |fn + str|
|000004f0| 6c 65 6e 28 66 6e 29 3b | 0d 20 20 66 6f 72 20 28 |len(fn);|.  for (|
|00000500| 3b 3b 29 20 7b 0d 20 20 | 20 20 77 68 69 6c 65 20 |;;) {.  |  while |
|00000510| 28 2a 66 6e 20 3d 3d 20 | 27 3a 27 29 20 7b 0d 20 |(*fn == |':') {. |
|00000520| 20 20 20 20 20 2b 2b 66 | 6e 3b 0d 20 20 20 20 20 |     ++f|n;.     |
|00000530| 20 6d 65 6d 63 70 79 28 | 72 2c 22 2e 2e 2f 22 2c | memcpy(|r,"../",|
|00000540| 33 29 3b 0d 20 20 20 20 | 20 20 72 20 2b 3d 20 33 |3);.    |  r += 3|
|00000550| 3b 0d 20 20 20 20 7d 0d | 20 20 20 20 69 66 20 28 |;.    }.|    if (|
|00000560| 66 6e 20 3d 3d 20 65 29 | 20 62 72 65 61 6b 3b 0d |fn == e)| break;.|
|00000570| 20 20 20 20 28 71 20 3d | 20 73 74 72 63 68 72 28 |    (q =| strchr(|
|00000580| 66 6e 2c 27 3a 27 29 29 | 20 7c 7c 20 28 71 20 3d |fn,':'))| || (q =|
|00000590| 20 65 29 3b 0d 20 20 20 | 20 6d 65 6d 63 70 79 28 | e);.   | memcpy(|
|000005a0| 72 2c 66 6e 2c 71 20 2d | 20 66 6e 29 3b 0d 20 20 |r,fn,q -| fn);.  |
|000005b0| 20 20 72 20 2b 3d 20 71 | 20 2d 20 66 6e 3b 0d 20 |  r += q| - fn;. |
|000005c0| 20 20 20 2a 72 2b 2b 20 | 3d 20 27 2f 27 3b 0d 20 |   *r++ |= '/';. |
|000005d0| 20 20 20 69 66 20 28 71 | 20 3d 3d 20 65 29 20 62 |   if (q| == e) b|
|000005e0| 72 65 61 6b 3b 0d 20 20 | 20 20 66 6e 20 3d 20 71 |reak;.  |  fn = q|
|000005f0| 20 2b 20 31 3b 0d 20 20 | 7d 0d 20 20 2a 2d 2d 72 | + 1;.  |}.  *--r|
|00000600| 20 3d 20 27 5c 30 27 3b | 0d 20 20 72 65 74 75 72 | = '\0';|.  retur|
|00000610| 6e 20 46 69 6c 65 4e 61 | 6d 65 5f 6e 65 77 66 6e |n FileNa|me_newfn|
|00000620| 3b 0d 7d 0d 0d 2f 2a 0d | 20 2a 20 20 48 65 6c 70 |;.}../*.| *  Help|
|00000630| 65 72 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 6d |er funct|ion to m|
|00000640| 61 6b 65 20 66 69 6c 65 | 6e 61 6d 65 20 63 6f 6e |ake file|name con|
|00000650| 76 65 72 73 69 6f 6e 73 | 20 6d 6f 72 65 20 63 6f |versions| more co|
|00000660| 6e 76 65 6e 69 65 6e 74 | 2e 0d 20 2a 0d 20 2a 20 |nvenient|.. *. * |
|00000670| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 | This fu|nction c|
|00000680| 61 6c 6c 73 20 65 69 74 | 68 65 72 20 6f 66 20 74 |alls eit|her of t|
|00000690| 68 65 20 74 77 6f 20 61 | 62 6f 76 65 20 66 69 6c |he two a|bove fil|
|000006a0| 65 6e 61 6d 65 20 63 6f | 6e 76 65 72 73 69 6f 6e |ename co|nversion|
|000006b0| 20 66 75 6e 63 74 69 6f | 6e 73 0d 20 2a 20 20 61 | functio|ns. *  a|
|000006c0| 6e 64 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 72 |nd retur|ns the r|
|000006d0| 65 73 75 6c 74 69 6e 67 | 20 66 69 6c 65 6e 61 6d |esulting| filenam|
|000006e0| 65 20 69 6e 20 61 6c 6c | 6f 63 61 74 65 64 20 6d |e in all|ocated m|
|000006f0| 65 6d 6f 72 79 2e 20 20 | 4f 77 6e 65 72 73 68 69 |emory.  |Ownershi|
|00000700| 70 20 6f 66 0d 20 2a 20 | 20 74 68 65 20 61 6c 6c |p of. * | the all|
|00000710| 6f 63 61 74 65 64 20 6d | 65 6d 6f 72 79 20 69 73 |ocated m|emory is|
|00000720| 20 74 72 61 6e 73 66 65 | 72 72 65 64 20 74 6f 20 | transfe|rred to |
|00000730| 74 68 65 20 63 61 6c 6c | 65 72 20 2d 2d 20 69 2e |the call|er -- i.|
|00000740| 65 2e 20 69 74 20 69 73 | 20 74 68 65 0d 20 2a 20 |e. it is| the. * |
|00000750| 20 63 61 6c 6c 65 72 27 | 73 20 72 65 73 70 6f 6e | caller'|s respon|
|00000760| 73 69 62 69 6c 69 74 79 | 20 74 6f 20 65 76 65 6e |sibility| to even|
|00000770| 74 75 61 6c 6c 79 20 66 | 72 65 65 20 69 74 2e 0d |tually f|ree it..|
|00000780| 20 2a 0d 20 2a 20 20 45 | 78 61 6d 70 6c 65 3a 20 | *. *  E|xample: |
|00000790| 20 46 69 6c 65 4e 61 6d | 65 4d 61 63 43 6f 6e 76 | FileNam|eMacConv|
|000007a0| 65 72 74 28 46 69 6c 65 | 4e 61 6d 65 4d 61 63 54 |ert(File|NameMacT|
|000007b0| 6f 55 6e 69 78 2c 22 3a | 4d 79 44 69 72 3a 4d 79 |oUnix,":|MyDir:My|
|000007c0| 46 69 6c 65 22 29 0d 20 | 2a 2f 0d 63 68 61 72 20 |File"). |*/.char |
|000007d0| 2a 0d 46 69 6c 65 4e 61 | 6d 65 4d 61 63 43 6f 6e |*.FileNa|meMacCon|
|000007e0| 76 65 72 74 28 63 68 61 | 72 20 2a 28 2a 66 75 6e |vert(cha|r *(*fun|
|000007f0| 63 29 28 63 68 61 72 20 | 2a 29 2c 63 6f 6e 73 74 |c)(char |*),const|
|00000800| 20 63 68 61 72 20 2a 66 | 6e 29 20 7b 0d 20 20 20 | char *f|n) {.   |
|00000810| 63 68 61 72 20 2a 6e 65 | 77 66 70 2c 20 2a 6e 65 |char *ne|wfp, *ne|
|00000820| 77 6d 65 6d 3b 0d 0d 20 | 20 20 6e 65 77 66 70 20 |wmem;.. |  newfp |
|00000830| 3d 20 28 2a 66 75 6e 63 | 29 28 66 6e 29 3b 0d 20 |= (*func|)(fn);. |
|00000840| 20 20 6e 65 77 6d 65 6d | 20 3d 20 28 63 68 61 72 |  newmem| = (char|
|00000850| 20 2a 29 6d 61 6c 6c 6f | 63 28 73 74 72 6c 65 6e | *)mallo|c(strlen|
|00000860| 28 6e 65 77 66 70 29 20 | 2b 20 31 29 3b 0d 20 20 |(newfp) |+ 1);.  |
|00000870| 20 69 66 20 28 6e 65 77 | 6d 65 6d 20 3d 3d 20 4e | if (new|mem == N|
|00000880| 55 4c 4c 29 20 72 65 74 | 75 72 6e 20 4e 55 4c 4c |ULL) ret|urn NULL|
|00000890| 3b 0d 20 20 20 73 74 72 | 63 70 79 28 6e 65 77 6d |;.   str|cpy(newm|
|000008a0| 65 6d 2c 6e 65 77 66 70 | 29 3b 0d 20 20 20 72 65 |em,newfp|);.   re|
|000008b0| 74 75 72 6e 20 6e 65 77 | 6d 65 6d 3b 0d 7d 0d 00 |turn new|mem;.}..|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 a8 | 00 00 00 a8 00 00 00 4a |........|.......J|
|00000910| 00 00 01 01 08 74 70 72 | 6f 74 6f 2e 68 00 02 00 |.....tpr|oto.h...|
|00000920| 00 00 54 45 58 54 00 00 | 00 00 00 00 00 00 00 00 |..TEXT..|........|
|00000930| 09 6d 61 63 66 69 6c 65 | 2e 63 02 00 00 00 54 45 |.macfile|.c....TE|
|00000940| 58 54 4d 50 53 20 00 00 | 00 14 00 60 00 00 00 00 |XTMPS ..|...`....|
|00000950| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 14 00 60 |..TEXTMP|S .....`|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 a4 1a 3a b1 00 00 | 08 3f 00 00 01 f2 00 00 |....:...|.?......|
|00000980| 00 00 00 00 0d 00 00 00 | 01 01 07 74 72 61 6e 73 |........|...trans|
|00000990| 2e 63 02 00 00 00 54 45 | 58 54 00 00 00 00 00 00 |.c....TE|XT......|
|000009a0| 00 00 00 00 00 00 00 00 | 01 85 00 00 00 00 10 fc |........|........|
|000009b0| 00 00 14 00 00 00 00 00 | 00 00 00 00 00 00 a4 16 |........|........|
|000009c0| b6 34 a4 16 bf 9a 00 00 | 00 00 00 00 00 00 00 00 |.4......|........|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 2f a3 00 05 |........|..../...|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 0d 00 00 00 01 01 07 74 |........|.......t|
|00000a00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 70 0d 20 |...H..Mo|naco.p. |
|00000a10| 20 70 74 73 20 3a 3d 20 | 70 61 72 74 73 28 66 6e | pts := |parts(fn|
|00000a20| 2c 22 2f 22 29 0d 00 06 | 00 08 00 2a 00 05 01 49 |,"/")...|...*...I|
|00000a30| 01 f3 00 2a 00 05 01 49 | 01 f3 a6 e2 00 dd 00 00 |...*...I|........|
|00000a40| 01 ef 00 00 01 ef 00 00 | 00 00 01 00 00 00 00 36 |........|.......6|
|00000a50| 00 02 00 00 01 14 00 00 | 01 25 11 46 69 6c 65 4e |........|.%.FileN|
|00000a60| 61 6d 65 55 6e 69 78 54 | 6f 4d 61 63 00 00 03 b6 |ameUnixT|oMac....|
|00000a70| 00 00 03 c7 11 46 69 6c | 65 4e 61 6d 65 4d 61 63 |.....Fil|eNameMac|
|00000a80| 54 6f 55 6e 69 78 00 00 | 00 1e 00 2a 00 05 01 49 |ToUnix..|...*...I|
|00000a90| 01 f3 00 2a 00 05 01 49 | 01 f3 00 00 00 00 00 00 |...*...I|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 a8 |........|........|
|00000ab0| 00 00 00 a8 00 00 00 4a | 00 47 1a 60 06 9e 00 00 |.......J|.G.`....|
|00000ac0| 00 1c 00 4a 00 00 4d 50 | 53 52 00 02 00 0a 03 ed |...J..MP|SR......|
|00000ad0| ff ff 00 00 00 00 00 00 | 00 00 03 ef ff ff 00 00 |........|........|
|00000ae0| 00 4c 00 00 00 00 03 f0 | ff ff 00 00 00 86 00 49 |.L......|.......I|
|00000af0| 19 e4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+